Amiga Plus 1998 #4/Amiga Plus CD - 1998 - No. 4.iso/pd/tools/sysspeed/install

Text File | 1997-01-03 | 8KB | 454 lines

;================================= ENGLISH ==================================

(set languages-default 1)

(set #bad-kick "You must be using Kickstart 2.04+ to install SysSpeed")

(set #copy-main "Copying SysSpeed...")

(set #copy-datas "Copying SysSpeed datafiles...")

(set #copy-doc "Copying Documentation...")

(set #copy-powerpacker-library "Copying powerpacker.library to Libs: ...")

(set #copy-boards-library "Copying boards.library to Libs: ...")

(set #copy-xpkmaster-library "Copying xkpmaster.library to Libs: ...")

(set #copy-shri-library "Copying xpkSHRI.library to Libs:Compressors/ ...")

(set #copy-fonts "Copying XEN Font to Fonts: ...")

(set #install-select
    (cat
        "Please select the different parts of SysSpeed that you"
        " would like to install:"
    )
)

(set #install-select-help
    (cat
        "SysSpeed: The Ultimate Speedtester...\n"
    )
)

(set #doc-select
    (cat
        "Please select your favourite documentation that you would"
        " like to install:"
    )
)

(set #doc-select-help
    (cat
        "Select you favourite documentation!"
    )
)

(set #languages-select "\nWhich languages should be installed?")

(set #languages-select-help
    (cat
        "Please select your favourite language that should be"
        " copied to you Locale: directory?"
    )
)

(set #item-main "SysSpeed Mainprogram")

(set #item-datas "SysSpeedDatas")

(set #item-doc "Documentation")

(set #item-locale "Locale")

(set #item-libraries "Libraries")

(set #item-fonts "XEN Font")

(set #where-main "Where would you like to install the SysSpeed mainprogram?")

(set #where-main-help
    (cat
        "This is the destination directory for the SysSpeed mainprogram"
    )
)

(set #where-datas "Where would you like to install Datas for SysSpeed ?")

(set #where-datas-help
    (cat
        "This is the destination directory of Datas for SysSpeed!"
    )
)

(set #where-doc "Where would you like to install the Documentations?")

(set #install-exit
    (cat
        "Thank you for installing SysSpeed ..."
    )
)

(set #install-start
    (cat
        "\nWelcome to SysSpeed installation utility!\n\n"
        "Written and performed by f0X/AD!\n"
    )
)

;===[ German Documentation ]=================================================

(if (= @language "deutsch")
 (
(set languages-default 2)

(set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um SysSpeed benutzen zu können!")

(set #copy-main "Kopiere SysSpeed...")

(set #copy-doc "Kopiere Dokumentation...")

(set #copy-powerpacker-library "Kopiere powerpacker.library ins Libs: ...")

(set #copy-boards-library "Kopiere powerpacker.library ins Libs: ...")

(set #copy-xpkmaster-library "Kopiere xkpmaster.library ins Libs: ...")

(set #copy-shri-library "Kopiere shri.library ins Libs:Compressors/ ...")

(set #copy-fonts "Kopiere XEN Zeichensatz ins Fonts: ...")

(set #install-select
    (cat
        "Bitte wähle die einzelnen Teile des SysSpeed's, aus die"
        " Du installieren möchtest:"
    )
)

(set #doc-select
    (cat
        "Bitte wähle die Dokumentationen aus die Du installieren"
        " möchtest:"
    )
)

(set #languages-select "\nWelche Sprachen sollen installiert werden?")

(set #languages-select-help
    (cat
        "Bitte suche die Sprache für SysSpeed aus, die "
        " in Dein Locale: Verzeichnis kopiert werden soll!"
    )
)

(set #item-main "SysSpeed Hauptprogramm")

(set #item-datas "SysSpeed Datenfiles")

(set #item-doc "Anleitung")

(set #item-locale "Locale")

(set #item-libraries "Libraries")

(set #item-fonts "XEN Zeichensatz")

(set #where-main "Wohin möchtest Du SysSpeed installieren?")

(set #where-main-help
    (cat
        "Dies ist das Zielverzeichnis von SysSpeed."
    )
)

(set #where-datas "Wohin möchtest Du die Daten von SysSpeed installieren?")

(set #where-datas-help
    (cat
        "Dies ist das Zielverzeichnis, von den daten die das"
        " SysSpeed benötigt!"
    )
)

(set #where-doc "Wohin möchtest Du die Dokumentation installieren?")

(set #install-exit
    (cat
        "Vielen Dank für die Installation von SysSpeed ..."
    )
)

(set #install-start
    (cat
        "\nWillkommen zur SysSpeed Installation!\n\n"
        "Geschrieben von f0X/AD!\n"
    )
)

 )
)


;============================== PROGRAM-START================================

(set @default-dest "")

; Check Kickstart (>= v2.0) Version.

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

(message #install-start)

(set install-default 31)

(if (NOT (exists "Fonts:XEN" (noreq)))
    (set install-default (BITOR install-default 32))
)

(welcome)

(set install-files
    (askoptions
        (prompt    #install-select)
        (help    #install-select-help "\n\n" @askoptions-help)
        (choices
            #item-main
            #item-datas
            #item-doc
            #item-locale
            #item-libraries
            #item-fonts
        )
        (default install-default)
    )
)

(set startup-files 0)

(if (BITAND install-files 1)
    (
    (set main-dest
        (askdir
            (prompt    #where-main)
            (help    #where-main-help "\n\n" @askdir-help)
            (default "SYS:")
            )
        )
    )
)

(if (BITAND install-files 2)
    (set datas-dest
        (askdir
            (prompt    #where-datas)
            (help    #where-datas-help "\n\n" @askdir-help)
            (default "SYS:")
        )
    )
)

; Check + DefaultSet + Request Of Documentation(s)

(if (BITAND install-files 4)
    (
        (if (= @LANGUAGE "deutsch")
            (set doc-default 2)
            (set doc-default 1)
        )
        (set doc-files
            (askoptions
                (prompt    #doc-select)
                    (help    #doc-select-help "\n\n" @askoptions-help)
                    (choices
                        "SysSpeed... English"
                        "SysSpeed... Deutsch"
                    )
                (default doc-default)
            )
        )
        (set doc-dest
            (askdir
                (prompt    #where-doc)
                (help    @askdir-help)
                (default "SYS:")
            )
        )
    )
)

(if (AND (BITAND install-files 8) (= (exists "Locale:") 2))
    (set    languages
        (askoptions
            (prompt    #languages-select)
            (help    #languages-select-help "\n\n" @askoptions-help)
            (choices
                "English"
                "Deutsch"
            )
            (default languages-default)
        )
    )
)


;========================== COPY STARTS HERE ===============================

; Copy SysSpeed MainProgram

(if (BITAND install-files 1)
    (
        (copyfiles
            (prompt #copy-main)
            (source "SysSpeed")
            (dest main-dest)
            (files)
            (infos)
        )
    (delete (tackon main-dest ".info"))
    )
)

(complete 14)

; Copy DataFiles

(if (BITAND install-files 2)
    (
        (copyfiles
            (prompt #copy-datas)
            (source "SysSpeedData")
            (dest (tackon datas-dest "SysSpeedData"))
            (all)
        )
    )
)

(complete 28)


;Copy selected Documentations

(if (BITAND install-files 4)
    (
        (set n 0)
        (while
            (set doc
                (select n
                    "SysSpeed_eng.guide"
                    "SysSpeed_ger.guide"
                    ""
                )
            )
            (
                (if (IN doc-files n)
                    (
                        (if (exists (tackon "" doc))
                            (copyfiles
                                (prompt #copy-doc)
                                (source (tackon "" doc))
                                (dest doc-dest)
                                (infos)
                            )
                        )
                    )
                )
                (set n (+ n 1))
            )
        )
    (delete (tackon doc-dest ".info"))
    )
)

(complete 42)

; Copy catalog files

(if (and (BITAND install-files 8) (= (exists "Locale:") 2))
    (
        (set n 0)
        (while
            (set language
                (select n
                    "English"
                    "Deutsch"
                    ""
                )
            )
            (
                (if (IN languages n)
                    (if (<> 0 n)   ; No catalog for english strings...
                        (
                            (set catalogs (tackon "Locale/Catalogs" language))
                            (set destination (tackon "Locale:Catalogs" language))
                            (makedir destination)
                            (if (exists (tackon catalogs "SysSpeed.catalog"))
                                (copylib
                                    (prompt #copy-catalog)
                                    (source (tackon catalogs "SysSpeed.catalog"))
                                    (dest destination)
                                )
                            )
                        )
                    )
                )
                (set n (+ n 1))
            )
        )
    )
)


;Copy libraries to libs:

(if (BITAND install-files 16)
    (
        (copylib
            (prompt #copy-powerpacker-library)
            (source "Libs/powerpacker.library")
            (dest "Libs:")
        )
        (complete 25)
        (copylib
            (prompt #copy-boards-library)
            (source "Libs/boards.library")
            (dest "Libs:")
        )
        (complete 50)
        (copylib
            (prompt #copy-xpkmaster-library)
            (source "Libs/xpkmaster.library")
            (dest "Libs:")
        )
        (complete 75)
        (copylib
            (prompt #copy-shri-library)
            (source "Libs/compressors/xpkshri.library")
            (dest "Libs:compressors")
        )
    )
)

(complete 90)

(if (BITAND install-files 32)
    (
        (copyfiles
            (prompt #copy-fonts)
            (source "Fonts")
            (dest "Fonts:")
            (all)
            (fonts)
        )
    )
)

(complete 100)

(EXIT #install-exit)